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O38F5 - CONFIGURATION FUNCTIONS OVERLAY P/N=8327423 EC=755404 PAGE 01 O38F5 - CONFIGURATION FUNCTIONS OVERLAY P/N=8327423 EC=755404 PAGE OWA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRISHT IBM CORP 1976 
001D70 3 O38F5 START X'1D708 119 * INPUT - SEE CTEOY INPOT 
Ook ok ok ok ok ok doko koko kok sok ok io ok qokfok oki ok kok kk lok ok tok kk tok kk kk tote k ik ok 120 * 
5 * * 121 * CONTROL BLOCK OUTPUT 
6 * KK PREREQUISITES 4k * 422 ALIGN WORD 
7 * * 001DD8 0OO0CO 123 DC xrO0CO! 
8 * NONE * QOO1DDA 1DEO0 124 CTW4O DC A(CTW41) 
9 * * OO1DDC FFFF 125 DC A pee 
10 ea OR om iO iki fai tak kako kok teak efoto 2k 126 * OUTPUT MESSAGE 
11 * x OOIDDE 3823 127 Cc X*3823! 
12 * eK MODIFICATIONS **Kx * OO1IDEO cC9IDSE5CID3CICK4OC 128 CTW41 DC C'INVALID ENTRY' 
13 * 5 OO1DED 00 129 pc Xx'o0? 
14 * NONE * 130 * 
15 * * 131 * CONTROL BLOCK OUTIN 
16 OO OR ORO ok ko dake dokok ftokotokok tek kkk ak ok 132 ALIGN WORD 
17 * * OO1DEE 0080 133 DC x'0080! 
18 * EX REA'S INCORPORATED *K*X * OO1DFO 1DFA ‘134 CTM11 DC A(CTM12 
19 * * OO1DF2 2258 135 DC A (CTEOY 
20 * NONE * OOIDF4 0010 136 DC A (16) 
21 * * OO1DF6 0001 137 DC A (1) 
92 =e OR lol oo OR aio ok ak ok ik dokotokok de iokoioiot ik tekokk ico teak cok teak ok 138 * OUTPUT 
23 * * OO1IDF8 383B 139 Cc X'383B!* 
2u * ake SPECIAL INSTRUCTIONS KX * OO1IDFA 4040C1IC1E3E34040F 140 CTM12 DC C' AATT 0203 0405 0607 0809 0000 0000 IDID!? 
25 * * OO1TE2A 00 141 DC x'o0o? 
Ze : NONE * ie : INPUT SEE CTE01 
* 
PROTESTS SSCS OSSSCOSSS CSCS COC SCSS CCS SSS CSC CSSSCSCSCSSCSSCCS CLS L SCS SSOL OSC S SSCL OLS SSS SS 44 * CONTROL BLOCK OUTPUT 
29 * * Q0O01E2B 00 145 ALIGN WORD 
30 * *KX E. C. HISTORY eK * 001E2C 0080 146 DC X*0080! 
31 * Fd QOO1E2E 1E38 147 CIMO7 DC A(CIMO9 
32 * DATE 12APR78 DATE O8AUG78 DATE DATE * 001E30 2258 148 DC A(CTEO4 
33 * E.C. 755404D E.C. 755404 ELC. Es: * 001E32 0010 149 DC A (16) 
34 * Ed 001E34 0001 150 ; DC A us 
5 FER He a RR OR OR A of a aR AR RR RR a A a ee aR 2 a a 2 fe ae ae a aie ae a a ae a a fe fe ae ae ae 2 a a ok 151 * OUTPUT FOR OUTIN - CONFIGURATION TABLE ENTRY 
37 Foo kok kk tok kok i a ick ak tested ak ak tke ak tke ak ke feo 2 fc ke ake fe akc af ae a oe ate ake a af a ae eae ate ak ak fe ae ote of ae ake oe akc 2 OO01E36 3846 152 DC X'3846! 
38 * OVERLAY PROGRAM START 001E38 4040 153 CIM09 DC ct ' 
: Ci TeTECSOSCC£CC£CCS©CSTSSCSCLSCCS SOC LSC SSS ESL SPSL SS TS SS STS TSS SS SSL SLT SS SS SF OO1E3A 404040404 04040404 154 CIM10 DC cs t 
001D70 6F0D 21B6 4O CYROO MVW R7,OLYRA SAVE OVERLAY RETURN ADDRESS OO1E6A 00 155 DC X'O0! 
001D74 6802 1F6A ee B cxt02 B TO START 156 * INPUT MESSAGE SEE CTEO4 
(OMELET CSSL SSCS SOSOCCC SS OCC SCLL CCC CSCS OSLSOTOSCSCS SC OSS SL CSS LLL LSS SL tS SS 157 * 
WEES LOCTCLCSCS£SSCSSOSCSC£CCL SCS SSS S SCSI SS CSCS SC SS SCS SSCS SL LS St ot 158 * CONTROL BLOCK HTOE 
45 * DATA FOR FUNCTIONS OVERLAY 001E6B 00 159 ALIGN WORD 
WME TE SLCPOSC SELECT OSCOCCOSSCSLS SESSTCCS CLC SOS SSS SLL SL SS LSS eT SS ts QOO1E6C 0002 160 CIM20 DC x'0002! HEX DATA 2 BYTES 
001D78 00 47 CTEM DC x'oo! ENTRIES MADE FLAG OO1E6E 21FA 161 DC A(CEDN1 DATA ADDRESS 
001D79 OO 48 ALIGN WORD 001E70 # £1£E80 162 DC A(CIM32 EBCDIC OUTPUT BUFFER - ENTRY # 
OO1D7A FFFF 49 CTCM1 DC X"FFFF* CONSTANT -1 163 * CONTROL BLOCK OUTPUT 
001D7C 4040 50 CTDBB DC ct ' 764 Tae WORD 
51 * 001E72 0080 165 x'*0080! 
52 * SYSTEM TYPE OO1E74 1E7A 166 CIM30 A a 
53 * 001E76 £=FFFF 167 A 
QOO1D7TE 23 54 CALTER Dt YTZ3ZT EQLBERTA SYSTEH TYPE 168 * OUTPUT 
OO1D7F 25 55 CLING DC X'258 CLINGSTONE SYSTEM TYPE OO01E78 384C 169 DC ae 
56 * OO1E7A C5D5E3D9E840 170 CIM31 DC C'ENTRY ! 
57 ALIGN WORD OO01E80 404040404040 171 CIM32 DC Cc! , 
BB RR RR aR oe 2 fe fe ote ae a a 2a ke fe kc ae oe ake ake afc fe ak a a ie kc ok a ok oie te ote 2 a fe oe oe ok ak oe ok a Q001F86 00 172 pc x' oo! 
59 * CONFIG TABLE MESSAGES = 3820 -384F 173 * 
60 * 174 * CONTROL BLOCK OUTPUT 
61 * CONTROL BLOCK OUTIN OO1E87 00 175 pUseN WORD 
62 ALIGN WORD 001E88 0080 176 x'0080°! 
001D80 0080 63 DC Xx'0080! OO1E8A 1£E90 177 CMDO1 A CMDO 2) 
001D82 1D8C 64 CTDO2 DC A(CTDO3 OUTPUT 001E8C FFFF 178 A gah 
001D84 1D9A 65 DC A(CTDOY INPUT 179 * OUTPUT ES aie 
001D86 0001 66 DC A(1 LENGTH OF INPUT OO1T1E8E 384C 180 X*38 
001D88 0001 67 DC A(1 CONVERT TO HEX 001E90 D4UDECYCICHESB 181 CMDO2 CT HODEEY' 
68 * OUTPUT MESSAGE OUTIN 001E96 00 182 De Xx* 00? 
O0O1D8A 383A 69 DC X'383A! 183 * CONTROL BLOCK HTOE 
OOID8C CSDS5SE3D9E840D5E4D 70 CTDO3 DC C'ENTRY NUMBER? 001E97 00 184 ALIGN WORD 
001D98 00 71 DC x'oo! 001E98 0001 185 CMD10 DC x'O0018 HEX DATA 2 BYTES 
72 * INPUT MESSAGE OUTIN OO1E9A 1D9A 186 DC A ET H32 DATA ADDRESS 
001D99 OO 73 ALIGN WORD 001E9C 1E80 187 DC A(CIM32 EBCDIC OUT BUFFER - ENTRY # 
001D9A O00 74 cCTdDOd DC X'OO! ' INPUT 188 * 
001D9B 00 75 DC X*00* 189 * CONTROL BLOCK OUTIN 
76 * 190 ALIGN WORD 
17 CONTROL BLOCK OUTPUT OO1E9E 0080 191 cc x*oo8sOo! 
78 ALIGN WORD 001EAO 1EAA 192 CMD70O DC A(CMD71 
001D9C 0080 79 DC *goso! OOTEA2 1EBC 193 DC A(CMD73 
OO1DIE I1DA4 . 80 CTDO6 DC A(CTDO7) OO1EA4 0Q001 194 DC A(1 
OO1DAO FFFF 81 DC A (-1) OO1TEA6 0001 195 Cc A(1 
82 * oor 396 * OUTPUT 
OO1DA2 384C 83 DC *384Cc! OO1TEA8 3827 197 Cc X'3827! 
OO1DA4 ci1c4uc4 84 CTDO7 DC fr apDS OOTEAA F2F37EF4F9F5F30B4 198 CMD71 DC C'23=4953, 25=4955! 
OO01DA7 00 85 pc x'oo!? 109 Rs nt Soe 23=4953=ELBERTA 25=4955=CLING 
86 * OO1EBA 00 200 DC XYrourTr- 
87 * CONTROL BLOCK OUTPUT 201 * INPUT 
88 ALIGN WORD OO1EBB 00 202 ALIGN WORD 
OO1TDA8 0080 89 DC x'o0080! OO1T1EBC 00 203 CMD73 DC x'oo? 
QOQ1DAA 1DBO 90 CTD10 DC A(CTD11) OOTEBD QO 204 DC x'o0o! 
OO1DAC FFFF 91 DC A (~1) 205 * 
92 * OUTPUT MESSAGE 206 * CONTROL BLOCK OUTPUT 
OOIDAE 384C 93 DC X'*384C? 207 ALIGN WORD 
001DBO C4C5D3C5E3C5 94 CTD11 DC C'DELETE* OOTEBE 0080 208 DC xXx*O080! 
OO7DB6 00 95 pc x'oo? 001ECO 7 EC6 209 CTM6B DC A (CTM6C) 
96 * OO1EC2 FFFF 270 c A mal 
97 * CONTROL BLOCK OUTPUT 211 * OUTPUT MESSAGE 
OO1DB7 O00 98 ALIGN WORD OO1TEC4 3823 212 Cc X¥*' 3823! 
O0O01DB8 0080 99 DC x'o008so! 001EC6 COD5D5CSD9O4OE2ZE3D 213 CTM6C DC C'INNER STORAGE! 
OO1DBA 1DCO 100 CTD15 DC A (CTD16) OO1TED3 G0 214 DC X*o0? 
QOQ1DBC FFFF 101 Dc A aL 215 * 
102 * OUTPUT MESSAGE 216 * CONTROL BLOCK OUTIN 
OOIDBE 384C 103 DC X*384c! 217 ALIGN WORD 
001DCO E3C3E2 104 CTD16 Dc c'tcst OOTED4 00C0 218 DC x'o00cOo! 
001DC3 00 105 DC X'OO! OOTED6 1EEO 219 CTM7 DC A(CTN7A OUTPUT 
106 * OO1ED8 1F66 220 DC A(CTM7F INPUT 
107 * CONTROL BLOCK OUTIN OO1TEDA 0001 221 DC A (1 
108 ALIGN WORD OO1TEDC 0001 222 DC A(1 
0d01iDCcC4 0080 109 DC X' 0080! 223 * OUTPUT HESSAGE 
001DC6 1DDO 110 CTD20 DC A(CTD21 OUTPUT OO1EDE 38590 224 DC x'3850°! 
001DC38 2258 111 DC A(CTEOY INPUT OO1EEO FOF37EFITF6D26B40F 225 CIN7A DC C'03=16K, 17=32K, OB=48K, OF=64K? 
OO1DCA 0001 112 DC A (1 LENGTH OF INPUT OO1TEFE 00 226 DC x*oo? 
001DCC 0001 113 DC A(1 CONVERT TO HEX 227 * 
114 * OUTPUT 228 * CONTROL BLOCK OUTIN 
OO1DCE 3839 115 DC X'3839' OUTPUT QO1TEFF 00 229 ALIGN WORD 
007DD0 CIC4C4HDICSEZE2 116 CTD21 DC C'ADDRESS* 001F00 00c0 230 DC x'00cO? 
OO1DD?7 00 117 DC x'oo! 001F02 1TFOC 231 CTM7B DC A(CTM7C OUTPUT 
118 ALIGN WORD OO1FO4U 1F66 232 DC A(CTH7F INPUT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBN CORP 1976 
OO1F06 QO001 253 DC A (1 002006 §£925 21DC 350 MW CTW16,R1 ENTRY NO X 16 = ENTRY START BYTE 
OO1FO08 0001 234 DC A (1 OO200A 6A08 2216 351 MVW CTABA,R2 CONFIGURATION TABLE ADDRESS 

235 * OUTPUT MESSAGE OO200E 7228 352 AW R2,R1 ADDRESS TABLE ENTRY TO DELETE 
OO1FOA 3851 236 DC X'3851' 353 * R1 = ADDRESS OF ENTRY TO DELETE 
OO1FOC C1CHUCHDOCSEQE2UOE 237 CTM7C DC C'*ADDRESS TRANSLATOR? OO=NO, O1=YES' 354 * MAKE FIRST 4&Y BYTES OF ENTRY = FF-FF-XY-FF 
OO1F2D 00 238 DC x*'oo? 002010 8860 ID7A 355 MVW CTCM1, (R1) FF INTO BYTE O65 1 
239 * 002014 8068 21D6 0003 356 MVB CCEEs 481, 3) FF INTO BYTE 3 
230 * CONTROL BLOCK OUTIN 00201A 8868 1D7A OOOE 357 MVW CTCM1, (R1, 14) FF INTO BYTE 14 & 15 
241 ALIGN WORD 002020 6802 1FBE 358 CXDO3 B N 
OO1F2E 00C0 242 DC X*O0CO! 359 ok KK OK ok ok kk kok ke ek dak ik ik ak kokok took dak ik fei ko he tte fo oe kee kok ok 
001F30 1F3A 243 CTIM7D DC A(CTHT7E OUTPUT 360 * END DELETE ENTRY TO CONFIGURATION TABLE 
Q0O01F32 1F66 244 DC A(CTM7F INPUT ZG 1 ee ea ae he He ae ae he he he fc ae he he a ea he ee a eo ie oh oo a eo RC he ok oh ie a a ok i a a a oe oe oie fe ok ok te ie ok oc 
QOO01F34 0002 245 DC A 4} 363 eK oR OR Ko RR tok koko ako lok kk kkk JO a fk ok ok ek 
0OO01F36 0001 246 DC A(1 364 * INCLUDED MEMBER MODIFY MEMBER = CMODIFY 
247 * OUTPUT MESSAGE 365 * MODIFY CONFIGURATION TABLE ENTRY 
Q01F38 3852 248 DC X*3852' RIA MER LETS tS terete rrr str tre TTT SSC SST C SST SSL SSL SCS SCS SSCS LT CSS SS eS et | 
QOO1IF3A FOE7VETVE77EUODSEUD 249 CIMTE DC C*OXXX= NUMBER OF 16K BLOCKS OF OUTER STORAGE! 002024 4724 1E8A 367 CXINS MVA CMD0O1,R7 
001F65 00 250 DC x*00' 002028 6000 368 SVC our PRINT MODIFY 
251 * INPUT 00202A 4724 1D82 369 MVA CTDO2,R7 PRINT ENTER ENTRY NUMBER 
252 ALIGN WORD 00202E 6001 370 SVC OUTIN ENTER ENTRY NUMBER 
001F66 0000 293 CIM7F DC X*'*0000* INPUT 002030 C220 1D9A 371 MVB CTDO4,R2 R2 = ENTRY # 
001F68 00 254 DC x*00!8 002034 3241 372 SLL 8, R2 
pee : TES 3242 373 SRL 8,R2 < 
22) PTS PSST SSL S CSL SS SCC SL SCSSS SSS LOLOL CSCS OLE SSP OSS SL CLCS LS LS £ to FS ier vet 3h STE cheap PORBECT ERTRT  TEOSS 
* D OF CDATA ae 
259 FAMERS Ge 5 45 os eR OAR ea: noooun roe 2218 eae ae ene 2 CR SITE: OF BATRLES Us 5D 
001F69 00 260 ALIGN WORD 378 * ENTRY CORRECT 
DED Hv he He MR RH KR KR IK KR tk tak k kook ake fe ake ae ake ete a ae 002042 4724 1898 379 MVA CHD10,R7 
263 * BEGIN FUNCTION OVERLAY 002046 601A 380 svc HTOE ENTRY # FOR PRINT 
SSS STS SS TTS TL Steer TT SScSCLSLSCSCL SCS SS SSCLOCSCS SCC S SSCS LCS SSS LS eS Sf 002048 4724 1E74 381 MVA CIM30,R7 
OO1F6A 265 CXI02 EQU * 00204C 6000 382 SVC OUT PRINT "ENTRY XX ‘ 
QOO1F6A 8028 21CE 1D78 206 MVB CTCO1,CTEM SET ENTRIES MADE FLAG OO204R EA25 21DC 383 MW CTW16,R2 DELTA INTO TABLE 
O001F70 F202 267 CBI X'02* ,R2 002052 6B08 2216 384 AVW CTABA,R3 R3 = ADDRESS CONFIG TABLE 
QOO1F72 6800 1FDC 268 BE CXING B IF DELETE 002056 7268 385 AW R2,R83 START OF ENTRY 
OO1F76 F203 269 CBI X'03!,R2 002058 6BOD 2248 386 MVW R3,CT 
0OO1F78 6800 2024 270 BE CXINS /B IF MODIFY 00205C 4020 224A 2258 387 MVA CTEOY,CTM22 
OO1F7C F204 271 CBI X*O4t,R2 002062 4724 2246 388 MVA CTM20, 
OO1F7E 6800 20A0 272 BE CXIN6 B IF ALTERNATE CONSOLE 002066 601A 389 SVC HTOER TABLE ENTRY TO EBCDIC 
OO1F82 F20A 273 CBI X'OA!,R2 002068 4124 1E3A 390 MVA CIM10,R1 ADD SPACES FOR PRINT 
OO01F84 6800 1FC4 274 BE CXIN3 B IF ADD 00206C 4724 2258 391 MVA CTEO4, RT 
OO1F88 F206 275 CBI X'06!,R2 002070 4224 0001 392 MVWI 1,R2 COUNT 
OO1F8A 6800 20A8 276 BE CXINS B IF SYSTEM TYPE 002074 9740 393 CXINA MVD i?) (R1) TWO WORDS OF TABLE ENTRY (EBCDIC) 
QOO1F8E F207 277 CBI X*07',R2 002076 8868 1D7C 0004 394 MVW TDBB, (R1,4) cro 
Q0O01F90 6800 2144 278 BE TCSEN B IF TCS ENTRY 00207C 7FE1 0004 395 AWL 4 RT 
001F94 F208 279 CBI X'08',R2 002080 7921 0006 396 AWI 6,81 
001F96 6800 20DC 280 BE CXINC B IF STORAGE SIZE 002084 =7A41 0001 397 AWI 1,R2 
281 * 9 IS PRINT EQUIPMENT 002088 7A06 0008 398 CWI 8,R2 
OO1F9A 7A06 OOOE 282 CWI X'OOOE',R2 00208C 6D00 2074 399 BLE CXINA END ADD SPACES 
OO1FI9E 6800 219E 283 BE OEMIA B IF OEMIA 002090 4724 IE2E 400 MVA CIMO7,R7 
QOO1FA2 7A06 OOOF 284 CWI X'OOOF!",R2 002094 6001 401 SVC OUTIN PRINT CONFIGURATION TABLE ENTRY 
OO1FA6 6800 218C 285 BE FLOAT B IF FLOATING POINT uQO2 * EXPECT INPUT OF UPDATED ENTRY 
QOO1FAA 7A06 OODO 286 CWI X'OODO! ,R2 403 * R3 = MOVE TO ADDRESS 
QO1FAE 1803 287 JNE CXIO6 002096 4424 2258 4Ou4 MVA CTEO4,R4 RG = MOVE FROM ADDRESS 
QOOTFBO 6F03 2812 238 BAL CSORT, R7 B IF SORT HOS * R7 = # BYTES TO MOVE FROM SVC OUTIN 
OO1FBY 5004 289 J FUFIN 00209A 2cé64 406 MVFN (R4), (R3) MOVE NEW ENTRY INTO CONFIG TABLE 
290 * INCORRECT ENTRY 00209Cc 407 CMEND EQU- * END 
OO1FB6 4724 1IDDA 291 CXIO6 MVA CTW40,R7 00209C 6802 1FBE 408 B UFIN 
OO1FBA 6000 292 svc OUT PRINT ‘INVALID ENTRY! HOO *4kRR RE END MODIFY £20k 30 fk oR a tO a do i 
QO1FBC 5001 293 J FUNR GO TO RETURN FROM OVERLAY TSR Rr toto tlt re ret sre rrr PrP Tr rrr ro Lore rrrrr ctr reo reo reori rr et Err Ere rey 2 
PITS TCL SS OST CTS SCT SST SSCS COSTS CSC SOS SS CCTL OCLC STS SCC TP ST Tee eT ee es Ss 412 * CHANGE ALTERNATE CONSOLE 
295 * O13 oo ak RIK RIO I III III ICR IG IG II io Fak i tg ke kat cok 
296 * 0020A0 6F0O3 2710 “474 CXIN6 BAL CACON,R7 CALL ENTER ALTERNATE CONSOLE 
297 * OO20A4 6802 1FBE 415 B F 
298 * U16 so ck lok lok iii tek tok atok ioik ii II a aR IIR OR i tak ita tede ie ak ake ake fe oe 
299 * MORSE TES ICL SCLC SOC SSCS S OCS SSCL CSCS CSC CSS SSS SLT SS SSCP SS TS PTS TS eT Tee eT eT PT eT TS Tf 
300 2 Fok ok OR IG IR a lok ak kok tect talkie taki ke ck ok 419 * CHANGE SYSTEM TYPE 
a0) eee ee oe ek a ete eee ee a MOLE LETLOCLCCLCTLStrTrrC¢C@©Ce ret rrr Ti Steet eter rer rr SST SSCL CC SS SSCS PSS TTT TTS eT TSS 
0020A8 4724 1EAO 421 CXINS MVA CMD70 ,R7 
OO1FBE 3282 303 FUFIN SRL 16,R2 ZERO R2 0020AC 6001 422 SVC OUTIN’ PRINT ENTER SYSTEM TYPE 
TOAERO (O12, 2100 303 Be ee eevee ae 4 ee RNG SS EAEOUGRED ee een ee eee re keeoaRose 423 * —=— et eaaric & 002524239 
OT ek ik ek ok i IK tk RR I RO RK 4 kok AOeO BS aa g21C 1EBC ioe one a oe FY ="ADDRESS CONFIG TABLE SYSTEM TYPE 
308 * INCLUDED MEMBER ADD 0020B8 1803 426 JNE CXI81- 
309 * ADD ENTRY TO CONFIGURATION TABLE “27 * ALBERTA 
JO BR KKK HHH HK HH HK KK HK HK MH HH MH He He HK eH HK He He He He He eH He he He he he he 2 ee he Ke ek tek OO20BA 8060 1D7E 428 MVB CALBR, (R1) SET SYSTEM TYPE = 4953 
OOTFCY 311 CXIN3 EU * OO20BE 5008 429 J CxI8s9 ' 
OOI1FC4H 4724 1DYE 312 HVA CTD06,R7 0020CO0 802B 1D7F 1EBC 430 CXI81 CB CLING,CMD73 
001FC8 6000 313 SVC oUt PRINT "ADD! 0020C6' 1803 434 JNE CXI82 
ogirce 6530 BRS sek GRRARS ET SREME Gop eueny cure 43g * cEEnesrony 
0 S = 4955 
QOO1FD2 6001 316 SVC OUTIN’ EXPECT INPUT OF NEW ENTRY Bosece ae IDTF etn oo cErNG. (21) UE eh Sts Ena : 
OO1FD4 O6F03 2AB6 317 BAL NEXTE,R7 ENTER ENTRY INTO CONFIG TABLE O0O020CE 435 CxXI82 EQU 
318 ee oO ac OI IG I II IG IO I $k 4 436 * 
* — et ED he ane ee eS ee AE 
aoa ae ie eee oe Eye ee I TE Er an oP Pea ree rae Hee . _— —_—_—— 
Q0O01FD8 6802 IFBE 321 B FUFIN 439 * << 
333 eeOCERUEe TIGRE Mee epe Eoei Gee GUO * oe ern we eye See, So te ee a ise 
= uy * a INVALID SYSTEM TYPE 
325 * DELETE ENTRY TO CONFIGURATION TABLE 
325 t SREE cib0g = FER FHTER EREEE St OPOSDELTES opuore isons bees a va 
32GB RRMA H HH AH HHH HH HK AHH HH RK HK HAH TH HHH HK RRR HH KK IE HK meena. eRe AEBE ine Se ere BUHAE Got 0 CEURUROEA TAS RREES Feta ean rn cae oukn we aeuaeens 
329 * NORMAL ENTRY TO DELETE A TABLE ENTRY Yu] * SORT CONFIG TABLE 
330 * ENTER ENTRY NUMBER TO BE DELETED LU GB He he ee ai he He He He He he Ke he He He He EK eK HE he fe eh a aR aR a a fc af oe a 2 ac ac a ac ae fe ic a ac ake ot akc ie ake tee ee a a 
331 * FIRST REAL ENTRY = #1 QO020D4 6F03 2812 449 CXINS BAL CSORT,R7 
QOO1FDC 332 CXIN4Y EQU * 0020D8 6802 1FBE 450 B FUFI 
OO1FDC 333 CxXDOO FOU * TERM TESST TLS SSCS SSCS TOL SSS OCS CCSSCCS SCC SC SS SSeS STS ST PT TTP ST Sete Tes tS 
OO1FDC 4124 2218 334 MVA CTABU,R1 452 * CHANGE STORAGE SIZE IN TABLE 
OO1FEO C240 335 MVB (RI), R2 HEKME TELS SSP SS SSS SPSS SS TTS SSC CSE SSL CSC SSCS L CSS SCLC CS SO SCS SL SST SS TST el SS 
QO1TFE2 7A06 0001 336 CWI R 0020DC 454 CXINC EQU * 
QOO1FE6 141C 337 JLT ckp03 J IF NO ENTRIES IN CONFIG TABLE 0020DC 4724 1ECO 455 Ss001 MVA CTM6B,R7 
QOO1FE8 4724 1DAA 338 CXDO1 MVA CTD10,R7 0020EF0 6000 456 SVC OUT PRINT "INNER STORAGE! 
QOO1FEC 6000 339 svc our PRINT DELETE OO20E2 4724 1ED6 457 MVA CIM7,R7 
OO1FEE 4724 1D82 340 MVA CTDO2,R7 PRINT ENTER ENTRY NUMBER 0020E6 6001 u58 SVC ouTriIf PRINT '03=16K, 07=32K, OB=48K, OF=64K 
OQOOIFF2 6001 341 SVC OUTIN ENTER ENTRY NUMBER - IN HEX O0020E8 C620 1F66 459 MVB CTM7F,R6 
OO1FF4 C120 1D9A 342 MVB cCTDO4,R1 CTDO4 = ENTRY NUMBER OO20FC F603 460 CBI xX'03'/R6 
OOIFFS8 3141 343 SLL 7R1 OO2Z0EE 100A 461 JE $sd0o2 
OO1FFA 3142 344 SRL 8,R1 OO20FO F607 462 CBI X'07',R6 
OO1FFC F101 345 CBI 1,R1 CORRECT ENTRY 1 TO 255 0020F2 1008 463 JE SS002 
OO1FFE 14F4 346 JLT  ckp01 OO20F4 F60B 464 CBI XtOB',R6 

002000 C134 2218 347 CB CTABU*,R1 # ENTRIES USED O0020F6 1006 465 JE S$s002 

002004 I1DF1 348 JGT CxDO1 OO020F8 F60F 466 CBI X'OF' ,R6 
349 * ENTRY CORRECT OO20FA 1004 467 JE $s002 
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= PAGE 03 7 
cee (ieee ga Se ae a O38F5 - CONFIGURATION FUNCTIONS OVERLAY P/N=8327423 EC=755404 PAGE O3A 
MENT COPYRIGHT IBM CORP 1976 OER. “ORIECTR TERT 

oe S aseacu canny STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0020FC 4724 1DDA 459 uA  CTHAO RT are aoe TERM EQU 7 TERMINATE SVC 
002102 50EC 471 J 33001 i a a ad ooo 389 RID. EQU 9 READ ID SVC. 

es ee OO000A 590 START FOU 10 
002104 3661 : START CYCLE STEAL SVC 
ica ae OC eer 473 SS002 SLL AZERE ae 7 popeee ee STCSS EQU 11 START CYCLE STEAL STATUS SVC 
00210 C130 221Cc 475 HVE CTABP*.¢ 7R R5 = SET INNER STORAGE 00000D 2g PREP EQU 12 PREPARE DEVICE SVC 
QOZ10E F123 476 CBI X13" ht a eee aoe 89) READ1 EOU 1 READ WITH FUNCTION BIT 3 ON SVC 
002110 1075 877 03 wey 88008" J IF ELBERTA, NO TRANSLATOR 300010 398 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 
0 ' IT 3 OFF S 
BPS G2 inse i. ae ee PRINT "ADDRESS THANSLATOR 353314 UE BE ee ee 
00211C ’ ) 

11 100F 481 . JZ SS005 | Tee rete BICB EOU 19 RELEASE IN TERUPT CONTROL BLOCK SVC 
00211 4724 1F30 Hee wae Venn: S_TRANSLATOR 000015 601 HIO FOU 54 Coupe ye cue CONTROL BLOCK SVC 
Bae loa: Ce oeraReE 484 svc CTA R6 PRINT "OXXX=# 16K UNITS OUTER STORAGE egos poGneree eee. ee REQUEST USE OF DCP DISK SVC 
005158 E80 F800 hae aye TM7 i R6 = OUTER STORAGE 000018 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00212c 1004 487 7 1F806",R6,R4 000019 COs ETOH EOU 98 peegte 

487 g, $3004 900019 605 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
002128 4724 IDDA 489 MVA CTWuO RT. pa 00001B 607 ATOH FOU 5§ ASCIT TO HEX SVC” {St8 inc 
003134 SOEE 494 3 $8003 PRY cenecneron ENaRy 0000 1D 609 ETOA EQU 39 EBCDIC TO ASCTT fsrezncl 
SVC (STRING 
O0D496. “TERA 132 toon oy 0 Ee TEE O* noooae 610 ATGE EQU 30 ASCII TO EBCDIC SVC (STRING 
GOD1ee. Fens OaO0 133 OW = «REARS. os ey 61) EQ 31 READ DATA SETS FOR MDI/UTIL 
Q0213C ODID 2218 495 Ss005 MVW R5,CTABS* FILE STORKGE INTO CONFIG TABLE ae, Oe cai anaes erie 
14 6802 1FBE 496 B FUFIN 000020 614 VLDSV EOU 32 
UMBER OF HIGHEST VALID SVC 
497 2 OK a Rok IO ai io OI I I GIOK 3 i ak ake ak ak koa ak ak E16 RAE A Re a oe ea oe a AK KE ee AK KK 
499 CCE AIO EEE SE CEES TEE EEE EE REE 617 * Peer ge Re eae eer Ge a ep ee ee Te ee 
500 + PROCEDURE TCSEN 618 * EQUATES USED BY DCP ea 
502 TARRRR EEE AEE ERED GES PERSE SRE RE OTeE TEE ERE KR EERE 619 * : 
a $I FRO IO ICO IG SO i tote kk dak ak geok kk 000000 BDO Hm Ree He Me 2 a 3 A He he Ee ee ae he he 2h ae he he cae fe ae 2c ee 2 eae 2c afc a ke hc ah ae ae ake oe ae oh ie af ae he hc oie a aie ae aK he oe ae aie a fe afc ah ake af ok ee ah ake ok 
203 * ENTER ENTRY NUMBER FOR TCS DEVICE aan 621 AUTO EQU 0 AUTOMATIC MODE IND 
Oootke eee ae REAL ENTRY = #1 000001 e22 TPGSW EQU 0 TERMINATE PGM SW 
Q02144 4124 2218 506 HYA  CTABU,RI 000002 624 OFF OU 2 TURN OBT BETS OFF 
te Be ae ogs 000002 625 ON EQU 2 
005144. 7206 0 ' TURN OPT BITS ON 
Oothee aie pce cur tree paren 626 UTIL EBOU 3 UTILITY REQUESTING DATA 
002150 4724 1DBA 510 TCSO2 MVA CTD15,R7 ee uae en era 000006 628 STOP. EOU 6 STOP AFTER MSG OUT 
002154 6000 ; ‘ 
002156 4724 1D82 512 TCS03 HVA CTDO2,R7 pcrmameanaee 900008 630 NXTVE EOU 8 ALTERNATE OUTBUD DEV, ASSIGNED 
eter cence 212 NVA © CTDO2, 00000 3g akaYT Eee TAKE NEXT DATA SET IND 
OO Okt coro ages 213 svc QUTTN PRINT "ENTRY NUMBER ENTER IN HEX 00000B RMDI EOU | 14 Sat ceroer Rear. 
002160 3141 Bie Ste. “82 R FP CTDO4 = ENTRY NUMBER ENTERED 00000C ee RTMDI EQU 11 MDI RETORH EEO 
Nootce. ange 217 Chr 1,81 CORRECT ENTRY 1 TO 255 000008 635 CNRUN EOU 14 UNIT ADR ASSIGNMENT RON 
002168 6F18 2218 519 MVW © CTABU*,R7 000030 638 MDIRT FOU | HDL TRMEDLATE RETURN Th CHE 
O0D1GE 27D 256 i ae 7 Bo GOOe 3 T EQ 48 MDI TNMEDIATE RETORN IN CNTL BLK 
002170 772% 25 an See R7 = # ENTRIES USED (0000D Pia cone con. aeope DISP TO OPTION WORD 
902174 4724 104 $32 Fesou Mao EGnE TT He gu) Beg By LP BEPTE Gg tbabon 
003174 OED ae svc OUT PRINT "INVALID ENTRY! ier aiee pre teeee eee, Se MINUS CHAR 
! 527 * ENTRY CORRECT 001800 648 NEGZR EQU ' ' BLANK CHAR 
eee Q X¥* 1800 NEGATIVE AND ZERO INDIC 
003180 608 3216 839? AWW | CRABASRD ENTRY WO X 16 = ENERY START BYTE 000010 cue STECD EQU = xr648 STOP CODE FOR NENORY 
bogey §406 aE CRABS? CONFIGURATION TABLE ADDRESS 389908 g28 SEBS? By frootor SUNMANY NASR BET 
= TRY OF 
333188 6808 1FBE 233 acsoa Bees Santa” iiieecaciceud 990002 654 TWO EOU 2 
533 ARORA IIR IO III FI II IO IOI IO IOI IGOR II aI de tic 000003 635 THREE EQU 3 E 
O38 FS eee TSS ENTRY LN CONFIGURATION TABLE 000004 656 FOUR EOU 4 5 
5 2 II ROR I II IR IOI RI GIG i fal dere ae 000005 657 FIVE EQU 2 ° 
537 OO II IG I IG IO IG III ICI TOR OK gk ke dciok tote 000006 658 SIX EQU 6 6 
238 ¥ cen ees ON OR = ADD FLOATING POINT eee 659 SEVEN EQU) 7 7 
Aopee: Bees Same aie eto le aos Se ee eee Babu eS 660 EIGHT EQU 8 8 
002190 8028 Z1BE 2259 541 MVB  CDT3D, OT EO4+0NE DEVICE TYPE 3D OO000A 662 TEN. EOU 10 10 
002136 6F03 2AB6 542 BAL NEXTE, RT ENTER ENTRY INTO CONFIG TABLE Oboe 963 ELEVN Bou iB 11 
Say eee RK BND ADD FLOATING POINT 22438 428222 40 ICR IK K 00000D 6 13 
546 See eer eee tt iet cee rtece er terer er setcreesersesesecests secret ers: QQOQ00E 666 FORTN EOU ii 1% 
SU7 + QP TION OB = ADD BASIC ORMTA ENTRY ntti cea sryan Eee de 12 
ahotee. PEosi Sua hae FOGG AIC EGCG IOC IR JOO ACK Boo0 668 SIXTN EQU 16 16 
0031A2 4724 1DC6 28g eA TR OGEBOOUBY SPERy Sree 000014 £90 THNTY EOU 20 44 
0021A6 6001 551 Svc QUTTN’ PRINT ‘ADD peo a lS 34 
RESS', BYTE IN 4 671 TWEN1 EQU 21 
QO21A8 8028 21c6 2259 352 MVB  CDTA3,CTEOU+ONE DEVICE TYPE A3 Danie tie 672 TWEN3 EQU 23 53 
OO21AE 6203 2AB6 353 BAL —- NEXTE, RI ENTER ENTRY INTO CONFIG TABLE O0001A OF AWENG FOU 52 5@ 
235 riper END ADD BASIC OEM A 33023 RGR ORIG ICI RICO II IRGC itive te 675 TWENS EQU 28 38 
228 * ee Canacn ueRouTendC ee ere eee paooae 678 panty EON 30 30 
239 ia ek a A ai a lc wane 678 ey FOU 60 24 
EQU 
561 ACHAEA ESSER III IAA AIA ATI RIAA TAIRA TA A TARR IE ATTA AH 000042 680 SIXT6 £OD 66 66 
ae ame = 303868 SHE Ry rE 
MON SUBROUTINES? * 
26¢ SensatsnanngsenenentSTIESUERTTON cot02, SUDECUTIEEY sna neninsessnset ese nOetOS 683 TWO08 EOU 208 INPROC, SUP ST SM MSK 
266 * FE OCG IGG ROG IGG OC ICICI IGG TR GIGI BIG a I GK ati elets 68% ances aah 226 256 
* 
568 + SYSTEM EQUATES - WAS MEMBER DCPEQUNA * Boob aG 686 FOURK a 4096 | 4096 
ecaon 270 IEE EEE IEE OBOE SIGH ETHIE GEE TEE IE ISA TOSI GRE TEESE IEEE IE ER bE | 003FFE 688 H3FFE EQU X'3FFE! eee 
571 SH = EQU 7 SUMMARY MASK DISABLE OR epeL ES eae Se = 
000002 573 AT —s«EQU Ne uee Cae FFFFFD Pong. eee Ge =2 
25% % Q 2 ADDRESS TRANSLATOR ENABLE OR FFFFFO 692 M3 EQU -3 -3 
575 oo ito oki keke tk ai a tote eae amped FFFFE4 G33 M48 eeu 8 ~46 
zip * SOR I IG I IOI IG I I I a kak kik ak ak ak FFFFEQ 630 ee E u 38 -28 
o17 + EQUATED NAMES FOR SUPPORTED SVC'S * Heer Coa oe ee EOU eh ~ 
x ‘pcr 
000000 228 OBE eg ee age ne weer eee ere Ta 700 ecteae® PESTS PCSLOSLOCSLSOSSS eT TS LTS SS OOLC COST OSLO LOSS OCS SOS SETS PSS Pee Tt es S| 
$00002 2gh OUrzN eer 4 OUTIN SVC 102 * EQUATES FOR DISK . 
000003 583 ASCII EQU 3 TOG ak tok tk kk oe a ek dodo : 
000004 7 HEX TO ASCII SVC PET TST PSL S SSP SSS SSPE TS SET TESTS EST SSPE SSE EES ST SSP SES SF ES SS 
338908 ses SHEE BE SERMG'REFURK S¥°PROGRAN CHECK SVC setae ie. BARRY en geocTot START OF 
000006 586 EXIT EQU 6 EXIT SVC 000008 707 EOE EQU- 8 DISP TO EOR FROM START OP 
708 * ENTRY IN VTOC 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00000C 709 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN 00000C 826 QR3 EQU 12 R3 OF CALLING PROGRAM 
710 ° ENTRY OF VTOC OOOOOE 827 ORY EQU 14 R4 OF CALLING PROGRAM 
Q0000F 711 SPTE EQU 15 NUMBER SECTORS/TRACK 000010 828 QRS EQU 16 R5 OF CALLING PROGRAM 
OOOOOF 712 DIP2A EOU 15 ADDR 1ST DIPL2 SECTOR 000012 829 QOR6 EQU 18 rhe OF CALLING PROGRAM 
000018 743 EDIP2 EQU 30 ADDR LAST OTP L2 SECTOR+ 1 000014 830 QR? EQU 20 XR7 OF CALLING PROGRAM 
000078 714 PRC1A EQU 120 ADDR 1ST PROC? SECTOR 0000 16 831 QSVC EQU 22 SVC NUMBER OF CALLING PROGRAM 
OOOOBG 715 EPRC1 EOU 180 ADDR LAST PROC1 SECTOR+1 000017 832 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED 
O000B4 716 PRC2A EOU 180 ADDR 1ST PROC2 SECTOR 833 INTO SVC ON 
0000 FO 717 EPRC2 EQU 240 ADDR LAST PROC2 SECTOR+1 000018 834 QAV1 EQU 24 AVATLABLE WORD 1 
OO0O00FO 718 PRC3A EOU 240 ADDR 1ST PROC3 SECTOR OOOO1A 835 QAV2 EQU. 26 VAILABLE WORD 2 
00012Cc 719 EPRC3 EOU 300 ADDR LAST PROC3 SECTOR+F1 837 *ekRKRK Se5G as KGS 0 ea ENE WEGEE GOES os oo Coe eee cana ee wsk exeenexeeees 
OO014A 720 VPOCA EQU 330 ADDR 1ST VTOC SECTOR 838 * * 
000168 721 EVTOC EOU 360 ADDR LAST VTOC SECTOR#F1 839 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE START * 
OOOS8AB 722 LDSST EQU 2219 ADDR LAST SECTOR ON DISK 840 * OF EACH SLOT IN THE DEVICE TABLE TO THE VARIOUS ® 
000168 723 FDSST EOU 360 ADDR 1ST DATA SECTOR 841 * INFORMATION IN EACH SLOT * 
OOOOOA 724 DCPCY EQU 10 CYLINDER DCP ON 842 * * 
000020 725 LVTE EOU 32 LENGTH IN BYTES OF A VTOC ENTRY BO 22 IOI IIIS III IR I I II II HOI I I I $I IC CE 
000008 726 NDFPS EQU- 8 NUMBER ENTRIES/SECTOR IN VTOC 000002 844 OAG EQU 2 RETURN ADDRESS IF COND CODE OF 
000004 727 CHDLG EQU 4 DISP TO DATA IN MULT SECT'S 845 * eurenoe te nereneS THE COND 
OOOOOA 728 VHDLG EQU 10 NUMBER BYTES OF HEADER INFORMATION 846 * CODE AT 
O0000E 729 IHDLP EQU 14 NUM BYTES PAST ALL HEADER INFO 000004 847 OAB EQU 4 RETURN ADDRESS IF CONDITION 
OOOO TE 730 VHDLP EQU 30 848 * CODE OF INTERUPT DOES NOT 
731 * ON 1ST SECTOR OF EACH PROGRAM DATA 849 * MATCH CONDITION CODE AT OCC 
732 * SET 000007 850 occ EQU. 7 CONDITION CODE EXPECTED 
WAVES STS TSTOSSOSS SSCS SCS SS OS LS SSS TOS SPSS SOCS SS CSO LISS OLS S SESS Sete Pte Set srs | B51 KRHA KR KK KK KK RK KKK RK ERK KKK KKK KK AK KK HK KKK ERK KEKE EK EKEK EEK EEK EK 
735 * re 853 OO OI IO OR OO qc i iotOR tok sok ite dork ici 
736 * EQUATES FOR CODED STOPS USED BY DCP * 854 * DATA FOR COMMON SUBROUTINES 
737 * (NORMAL AND ERROR) * 855 Sige Saad kala ag bosib had 
738 * * 0021B6 0000 856 OLYRA DC A (*-* OVERLAY RETURN ADDRESS 
739 oR ok tok kk kk kk tk ok to i ok to a lot ioko kok ak tek ak ake ke ak ak ake kk ke i ak tei ake ia ke a ai ke ie ke ke ake oe ae BST HHH HK HK KKH HK HH HK KM HK KK HK HH HH HH HK KK KK KK OK KK 
003800 740 RECD1 EQU x'3800! DCP WAIT 0021B8 0230 858 CTMSZ DC X'0230! ADDRESS IN DCP LAST USABLE STORAGE 
003801 741 ACNG EQU x' 3801! ALTERNATE CONSOLE ERROR OO0O21BA 0240 859 ALTER DC X'O240! ADDRESS IN DCP ALT CONSOLE | ADD-TYPE 
003802 742 PCKCD EQU vignooe PROGRAM CHFCK ERROR BOQ BH RA MAH Ae He He Me He He He He He He He He He Me He He Ae He He He He He He He He He ke 2 He He He Me He ee he He He he he he hc ek Ke KK 
003803 743 MCKCD EQU xX' 38038 MACHINE CHECK ERROR 0021BC 180E 861 AOPTN1 DC X'180E? ADDRESS IN BASIC OF OPTION WORD 1 
003804 744 PTWMG EQU X'3804! POWER THERMAL ERROR 862 2 I Ila oR zc OR RIOR OI IIR IGRI AOR IR III RI IOI I tote te 
003805 745 PSTER EOU X'3805!' PROGRAM TERM 000100 863 CTNAD EQU 256 # DEVICE ADDRESSES 
003806 746 INVCD EOU xX*3806! INVALID COMMAND ERROR 864 Oo FO OOO io gia a ok aia kk took teak fete afc ek ca 
003807 747 ALTCN OU X'3807! ALT IN/OUT UNDER TEST OO21BE 3D 865 CDT3D DC X'3D!* FLOATING POINT 
003808 748 RES EQU xX'3808! ALT IN/OUT ON LIN OO21BF 3E 866 CDI3E DC A°3E* TCS 
003809 749 UXP EQU X'3809' UNEXPECTED i70 INTERRUPT 0021C0 40 867 CDT4O DC X*4O' TTY 
00380A 750 BPCD5 EQU X' 380A" PROGRAM STARTED 0021C1 44 868 CDT44 DC x'4yt CRT 
00380B 751 LPCD4 EQU X'*380B!? DISK ERROR 0021C2 45 869 CDT4&5 DC x'qse DISPLAY 
00380C 752 LPCD5S EOQU X'380C! PROGRAM NOT FOUND 0021C3 64 870 CDT64 DC X'64! INTER 
00380D 753 LPCD6 EQU X'380D! PROG RAL LOADED 0021C4 68 871 CDT68 DC X'68! 4973 PRINTER 
00380E 754 HLTCD EOU X'380E* HALT 0021C5 AO 872 CDTAO DC X'AQ! S/1I 
003810 755 RPCD2 EOU X'3810' PROGRAM” NOT EXPECTING REPLY 0021C6 A3 873 CDTA3 DC X'A3* S/1I0 
003812 756 RPCDS EOU <X'!3812! PROGRAM EXPECTING HEX DATA 0021C7 A4 874 CDTA4 DC X* Age S/IO 
003813 757 ERR1 EQU xX'3813! TOO MANY CHARACTERS ENTERED 0021C8 A8 875 CDTA8 DC X'A8! S/IO 
003814 758 ENTCD EOU X'38148 ASK FOR DATA ENTRY 0021C9 Ag 876 CDTAY DC X'agt S/1I0 
003815 759 SVCOD EQOU X'3815# TOO MANY SVC CALLS 0021CA BO 877 CDTBO DC X*BO! S/I0 
761 SRE e Pe Y ECEN Sk ek ued EMAAR EER oes eo 5 oe ee eee 0021CB B4 878 CDTB4 DC X'BYyt S/I0O 
162 * 0021CC EO 879 CDTEO DC X'EO! COM SYS 
763 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE * 0021CD £1 880 CDTE1 DC X'E1° COM SYS 
764 * START OF A PROGRAM HEADER OF THE VARTOUS INFORMATION IN x 881 GR tok loi ooo a aR io aor ro ik kok kkk teak tek tte ake teak ack 
765 * EACH PROGRAM HEADER * QO21CE 01 882 CTCO1 DC X'O1! CONSTANT 
766 * * OO21CF 02 883 CTCO2 DC X'O2° CONSTANT 
767 =e 30 CR tok ck ok tok tok tok kk kak kok ied kk tok lok cto i i i geek teak iakotede ake lake dee 2 ket ke ak ake ake ae ae 0021D0 03 884 CTCO3 DC X'Q3' CONSTANT 
000000 768 HID EQU 0 PROG I.D. 0021D1 O4 885 cCTCO4 DC X'Ou? CONSTANT 
000000 769 DVADR EQU 0 DEVICE TYPE IN DEVICE TABLE 0021D2 05 886 CTCO5 DC x'05! CONSTANT 
000001 770 DVTYP EQU 1 DEVICE ADR IN DEVICE TABLE 0021D3 06 887 CTCO6 DC X'0O6! CONSTANT 
000003 771 HDDP1 EOU 3 DEVICE DEPENDENT DATA 0021D4 OQ7 888 CTCO7 DC X'0O7! CONSTANT 
000004 772 HDDP2 U 7 DEVICE DEPENDENT DATA 0021D5 OE 889 CTC14 DC H'14¢ CONSTANT 1 BYTE 
000004 773 CPUMD EQU 4 CPU MODEL DISPLACEMENT 0021D6 FF 890 CTCFF DC X'FF!* CONSTANT 255 
000006 774 LSADR EQU 6 LAST ADR DISPLACEMENT 0021D7 00 891 ALIGN WORD 
000006 775 HPK EQU 6 PROTECT KEY 0021D8 0000 892 CTWOO DC X*00008 CONSTANT DECIMAL 00 1 WORD 
000007 776 HPK1 EOU 7 PROTECT KEY PLUS ONE 0021DA 000D 893 CTW13 DC xX*O0O0D? CONSTANT DECIMAL 13 1 WORD 
000006 777 HPSA EQU 6 DIAG PROG START ADR 0021DC 0010 894 CTW16 DC xX'0010* CONSTANT DECINAL 16 1 WORD 
000006 778 INTAR EQU 6 DEVICE INTERRUPT ADR OO0O21DE OOFF 895 CTWFF DC X'OOFF! CONSTANT 1 WORD 
000008 779 HDVIB EQU 08 DIAG DEV TABLE POINTER 896 ALIGN WORD 
000011 780 EXPNT EQU 17 897 * ENTER ALT CONSOLE 
000012 781 TBEND EQU 18 END OF TABLE IND 0021EO0 00 898 CAEAD DC x'00! ADDRESS — WORD 
000013 782 SCEND EOU 19 END OF SECTOR IND 0021E1 00 899 CAEAE DC X'OO0! ADDRESS - BYTE 
000014 783 CICBT EOU 20 C I C B INDICATOR 0021E2 00 990 CAETY DC x'OOt TYPE — WORD 
000008 784 CFEXT EQU 08 0021E3 OO 901 CAETZ DC x'oo! TYPE - BYTE 
000012 785 HTUID EOU 18 MDI MAP I.D DISPLACEMENT 902 
000010 786 UDTAS EOU 16 UNIT ASSIGNED BIT 0021E4 00 903 CTSA DC x*oOOo! SEARCH FOR DEVICE ADDRESS 
000020 787 PDTAS EOU 32 0021E5 00 904 CTSA2 DC x*'o0o? SEARCH FOR DEVICE ADDRESS - BYTE 2 
000000 788 UNCRT EOU 0 UNCONDITIONAL RETURN BIT 0021E6 0000 905 CTSEA DC x'o000* ENTRY FOUND ADDRESS 
000001 789 CKDAD EOU 1 CHECK REQUESTED DEV 0021E8 00 9046 CTSEF DC X'O0o! ENTRY FOUND NUMBER 
00000B 790 IOCHK EQU 11 T/O CHK IN PSW 0021E9 00 907 CTSEE DC Xx*'oo! ENTRY FOUND NUMBER - BYTE 2 
OOOOOF 791 NEWAR EOU 15 OO21EA 0000 908 CTSEN DC Xx*'0000! ENTRY # TO START SEARCH AT 
792 [KOI ok CR CI RR Go ok ok tok dak kok dtc gk tote i tak ok kk Q0O021EC 00 909 CTAD1 DC x'oo' ADDRESS BYTE 1 
7193 * oe OO21ED 00 910 CTADD DC X'Oo? ADDRESS BYTE 2 
794 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH ENTRY * Q0O21EE 0000 911 IPLPS DC X'0000! SWITCH - IPL PASS 
795 * FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) * 0021FO0 0000 912 PASS1 BC x*Q000' IST PASS FLAG 
7196 * * 0021F2 0000 913 CINCF DC X'0000! FLAG IN INITIAL CONFIGURATING MODE 
1797 3 IR GI IO IO I IG FOR IO IR IK 2 a ak 0021F4 0000 914 CBPA3 DC X'0000! FLAG BYPASS A3 OEMNIA ENTRIES IN CSRCH 
000000 798 CUDA EQU 0 DEVICE ADDRESS 0021F6 0000 915 CBPA4 DC X'00008 FLAG BYPASS AW KITE ENTRIES IN CSRCH 
000001 799 CUDT EQU 1 DEVICE TYPE 0021F8 0000 916 CCERR DC Xx'0000! FLAG CONDITION CODE ERROR IN READ ID 
000002 800 CUDF EQU 2 CONTROL FLAGS OO21FA 00 917 CEDN1 DC x*0oo! COUNTER TO ENTER DEVICE TYPE 
000003 801 CUDD1 EOU 3 DEVICE DEPENDENT DATA -- 1 O0OO021FB 00 918 CEDN2 DC x'OOo! COUNTER 
000004 802 CUDD2 EQU 4 DEVICE DEPENDENT DATA -- 2 0021FC 00 919 CHACT DC X*O0! COUNTER FOR DEVICE ADDRESS 
000005 803 CUDD3 EQU 5 DEVICE DEPENDENT DATA -- 3 OO021FD 00 920 CHAC2 DC Xx'oo! COUNTER 2ND TE 
000006 804 CUDD4 EOU 6 DEVICE DEPENDENT DATA -- 4 OO21FE 00 921 CTMC1 DC X*oo! PRINT COUNTER BYTE 1 
000007 805 CUDD5 EQU 7 DEVICE DEPENDENT DATA -- 5 OO21FF 00 922 CTMC2 DC X'OO* PRINT COUNTER BYTE 2 
000008 806 CUDD6 EQU 8 DEVICE DEPENDENT DATA -- 6 002200 ROUOYOLO 923 CDVT1 DC c! ‘ DEVICE NAME RETURNED BY CDEVT 
000009 807 CUDD7 EQU 9 DEVICE DEPENDENT DATA -- 7 002204 40404040 924 CDVT2 DC ct , DEVICE NAME RETURNED BY CDEVT 
OOOOOA 808 CUDD8 EQU 10 DEVICE DEPENDENT DATA -- 8 QDS RAH A He he He I oe He He He he Si he He she 2 Ke ae ee ee he hee he he he eae Ae ee 3 he ic 2h oe he he ake afc 2c 
00000B 809 CUDDY EQU 11 DEVICE DEPENDENT DATA -- 9 926 * CONTROL FOR WRITI 
O00000C 810 CUDDA EQU 12 DEVICE DEPENDENT DATA - 10 002208 220E 927 CTRL5S DC A (CTRL6) ADDRESS OF CONFIG TABLE NAME 
00000D 811 CUDDB EQU 13 DFVICE DEPENDENT DATA -- 11 00220A 3000 928 DC xX*3000' WRITI -—- ADDRESS OF CONFIG TABLE 
OOO00E 812 CUDRI FOU 14 DEVICE READ ID DATA RETURNED 00220C 0800 929 DC X'O8008 WRITI —- # WORDS TO WRITE = 2048 
BU a HR RR HE HRC HK I A RO ORR FOR FOR I ROR SOR ORRICK FOR ROR FOR OR RR I $0 Be tok a ke 0O0220E F3F8C6F1 930 CTRL6 DC C'38Fi? CONFIG TABLE NAME 
815 * * CREME TS ILE CII CS SSP TP TST SSCS SL SSS SCS LOC LST SLT TSS ST SS eT tt SS 
816 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE x 932 * CONFIGURATION TABLE 1120 BYTES 
‘817 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. % 933 * ENTRY ZERO = SYSTEM INFORMATION 
818 * * 934 * ENTRY 1-—- FF = DEVICE DATA 
819 3k OR I IR ORR IR II AO dC IC a 2k ak a 002212 0010 935 CTLEL DC X*0010! TABLE ENTRY LENGTH = 16 BYTES 
000000 820 QTAR Bou 0 IARB OF CALLING PROGRAM 002214 =1000 936 CTLNG DC F'4Q0g96 & CONFIGURATION TABLE LENGTH 
000002 821 AKR EOU 2 KEY REG 002216 3000 937 CTABA DC x'3000! ADDRESS OF CONFIGURATION TABLE 
000004 822 OLSR EQU 4 LSR OF CALLING PROGRAM 002218 3002 938 CTABU DC X'3002! ADDRESS NUMBER OF ENTRIES USED 
000006 823 QRO EQU 6 XRO OF CALLING PROGRAN 00221A 3003 939 CTABC DC x¥*3003'! ADDRESS OF CONFIGURED FLAG 
000008 824 OR1 EQU 8 XR1 OF CALLING PROGRAM 00221C 3005 940 CTABP DC x*3005'! ADDRESS OF SYSTEM TYPE 
OOOOOA 8625 QOR2 EQU 10 XR2 OF CALLING PROGRAM 00221E 3006 941 CTABS DC X'3006'° ADDRESS LAST USABLE STORAGE 
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O38F5 - CONFIGURATION FUNCTIONS OVERLAY P/N=8327423 EC=755404 PAGE 09 O38F5 - CONFIGURATION FUNCTIONS OVERLAY P/N=8327423 EC=755404 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2A44 1008 1867 JZ CHAO2 CHAIN BIT FOR THIS ENTRY NOT SET 1984 * 
1868 * CHAIN BIT SET 1985 3 IORI III III IO III IO IORI RIOR IRI IOI RIOR I IR fe te ate fe ie aie ate ie ie i he ee a eo 
002A46 4029 2A82 0001 1869 AWI 1,CHLNG INCREMENT CHAIN LENGTH 1986 * END OF DATA 
OO2A4C 402F 2A82 0008 1870 CWI 8 ,CHLNG V9OB7 6K ROKR RK I IIR KR I Ro i tte tok ik tk ik ok 
Q0O02A52 1410 1871 JLT CAA08 CHAIN LENGTH OK Q0O02AA3 00 1988 ALI WORD 
OO02A54 5008 1872 J CHAOY ERROR - CHAIN LENGTH TOO LONG 1990 2% RIOR I III IOI IOI RIOR IK IR IK tt ite oe ee ake 
1873 * CHAIN BIT NOT SET 19391 * 
002A56 402F 2A82 0000 1874 CHAO2 CWI Q,CHLNG 1992 * 
0O02A5C 100B 1875 JE chao 8 J IF NOT IN A CHAIN 1993 * BEGIN COMMON SUBROUTINES 
1876 * THIS IS LAST ENTRY IN A CHAIN 1994 * 
OO2A5E 402F 2A82 0007 1877 CWI 7,CHLNG 1995 * 
OO2A64 1504 1878 JLE CHAO6 J IF CHAIN LENGTH OK 1996 RRR RRR HH KKK RK RK RK KK HOKE IRI OR II 6K OK HK 
1879 * ERROR - CHAIN LENGTH TOO LONG 1998 a OR OR IO ICICI IIR IIR RII IO I FORO Rf I RRO ke Cte ie Be he eh te oe ae i oe a ee 
0O02A66 4724 27DE 1880 CHAOY MVA CNM30,R7 1999 * PROCEDURE CLEAR CTEO4 
OO2A6A 6000 1881 SVC OUT ERROR ‘CONFIG CHAIN TOO LONG! 384B 2000 * PURPOSE - CLEAR BUFFER CTEO4 
O002A6C 5008 1882 J CHAOY 2QOO 1 RK RR I RR ROK RIOR RR RR tk a i Ko a EK KK OK 
1883 RRR RK RK OO2ZAA4 7724 2002 CLEAR MVW ae SAVE RETURN ADDRESS 
1884 * CHAIN LENGTH OK OO2AA6 3281 2003 SLL R2 = ZERO = WHAT TO MOVE 
OO2ZA6E 4020 2A82 0000 1885 CHA06 MVWI O,CHLNG RESET LENGTH COUNTER OO2ZAA8 4324 2258 2004 MVA ereba, ie R3 = WHERE TO POT IT 
1886 * Ck NEXT ENTRY OO2AAC 6F08 2212 2005 MVW CTLEL. R7 = HOW MANY BYTES 
OO2A74 7921 0010 1887 CHAOS AWI 16,R1 OO2ABO 2A6C 2006 FFN R2 (RS) ZERO THE BUFFER 
OO02A78 C924 2224 1888 CW CTABF,R1 O0O02AB2 6822 0000 2007 B { RETURN 
OO2A7C 15DF 1889 JLE CHAO1 J IF NOT AT END OF TABLE F008 42 He ae HH a IK Ae ae EC a OC ae he ee he a ee ek ek RR toe Rat aie ae aie a of fe af ae age ake ate ape ae ate ae akc a age ate te ate ae ar 
1890 * END OF TABLE 2009 * END CLEAR PROCEDURE 
OO2A7E 6812 2A84 1891 CHAOS B CHARA* RETURN 2010 KA KR RH AH I Ae oe He He oe He ee oe ae oe ee ae oO ee a ee oe ae ee fe he ae a ie ea ae ake a ae he a ah a ee Re ote ake ete oh a ak ae ke oe ak aK a ie oe 
V BG D Re se a he a eo ate a he oR a 2 a oe oe a eo a a i eo ho a ak a ak ak ae a ote ak a te ee DOV 2D HR KR RH BH MC A A Re RE He HH CO a i he a ce ee ce a ie He ae he he he he ae eae fe ah he oe ae ak ae ee oe oe 
002A82 0000 1893 CHLNG DC X'0000' CHAIN LENGTH 2013 * PROCEDURE NEXTE 
Q0O02A84 0000 1894 CHARA DC A (*-*) RETURN ADDRESS 2014 * PURPOSE ~- ADD NEXT ENTRY TO CONFIG TABLE. 
VB D5 RH i Re ok oe oe 2 a aK a eo a ak eo eo a a i eo a Re eK 2015 * MOVE CTEO4 INTO NEXT AVAILABLE ENTRY OF CONFIG TABLE, 
1896 * END OF CHAIN PROCEDURE 2016 * INCREMENT # OF ENTRIES. ERROR MESSAGE IF NO ROOK. 
1897 2k sk ok tok ok hk kk kk kk kok kk kk dk RR ok ke ok ke tke ke i fea kc 2017 * INPUT - CTEO4Y CONTAINS THE NEW ENTRY. 
1899 *okK a doko ok ak dk kkk kk kik kk tok tok ek de ak tok fk 9018 2 ORG OR da Go IGOR OR IGG Ga ick lak gaia akc agate ial ak de a ae a ak aca 
1900 * PROCEDURE STCS OO2AB6 77C4 2019 NEXTE MVW R7,R6 SAVE RETURN ADDRESS 
1901 * INSERT A TCS DEVICE ADDRESS IN TCS ENTRY AFTER SORT QO2ZAB8 C130 2218 2020 MVB cTABUe,R1 R1 = # ENTRIES USED 
1902 * INDICATE IF DEVICE IS A CYCLE STEAL DEVICE OO2ZABC 3141 2021 SLL 8,R1 
10 3H AE He ee a eh a a i RK 2 a Oe fe RE RR ROK RR RR FO ROR RK a oe iio kok oe OO2ABEF 3142 2022 SRL 8. R1 R1 = # ENTRIES USED & NO SIGN BITS 
O002A86 6FOD 2A8E 1904 STCS MVW R7,STCRA SAVE RETURN ADDRESS OO2ACO C924 222E 2023 CW C&MNE,R1 TEST FOR ROOM IN TABLE 
1905 * MVWI 0,STCDA INITIALIZE QOO2ZAC4 1404 2024 JLT NEXT2 J TABLE IS NOT FULL 
1906 * MVW CTA1E,R1 R1= @ 1ST ENTRY OF CONFIG TABLE 2025 * TABLE IS FULL 
1907 * MVWI R2 R2 = PRESENT ENTRY # QOO2AC6 4724 2A92 2026 MVA CTMN8,R7 
1908 * MVB CTABU*,R3 R3 = # ENTRIES IN TABLE QO2ZACA 6000 2027 SVC OUT PRINT ‘CONFIG TABLE FOLL! 
1909 * SLL 8,R3 002ACC 500D 2028 J NEXT4 
1910 * SRL 8,R3 2079 * Boer FOR NEW ENTRY 
1911 *TCO1 CB COT3E, (R1,1) CK FOR TCS ENTRY QO2ZACE 7921 0001 2030 NEXT2 AWI INCREMENT # OF ENTRIES 
1912 * JE STCcO2 J TCS ENTRY FOUND OO2ZAD2 C138 2218 2031 MVB Rie bo aBue STORE # ENTRIES 
1913 * NOT A TCS ENTRY QOO2AD6 E925 2212 2032 MW cTLEeL, R1 X 16 = DELTA INTO TABLE 
1914 *TCA1 AWI 16,R1 TNC TO NEXT ENTRY O OO2ZADA 690E 2216 2033 AW CTRER RI R1 = START ADDRESS OF NEW ENTRY = TO 
1915 * AWT 1,R2 INC TO NEXT ENTRY # OO2ZADE 4224 2258 2034 MVA CTEO4,R2 R2 = FROM LOCATION 
1916 * CW R3,R2 OO2AB2 6FO08 2212 2035 MVW  CTLELSR7 R7 = # BYTES TO MOVE 
1917 * JLE STEO1 J NOT END OF TABLE OO2AE6 2A24 2036 MVFN R2), (R1) MOVE NEW ENTRY INTO CONFIG TABLE 
1918 * J STcO08 J END OF TABLE - NO TCS ENTRY FOUND OO2Z2AE8 68C2 0000 2037 NEXT4 B R6 RETUR 
1919 * FOUND A TCS ENTRY 2038 3 OR Ok a lo kok aka lokk ick dak ice iokek dak aatok ke ae ake akc akc ate 
1920 *TCO2 TBT Me 22) TEST TCS BIT 2039 * END OF NEXTE PROCEDURE 
1921 * JON TCA1 J NOT REALLY A TCS FOR THIS PROCESSOR 2040 a RK ak a kk dk kk ko ok kk ok kk ke kk ok ak kk kok tok ote ok 
1922 * MVW R1,STCEA SAVE TCS ENTRY ADDRESS 2O0UW2 *% eK tok tok oO OK lok ok ik cook do ikickok kkk kokokotok dik ak tak ak took ak te otc ot ake ic ok ok a 
1923 * LOOK FOR A TCS DEVICE 2043 * END OF COMMON SUBROUTINES - DNSUB3 
1924 x MVW CTA1E,R1 R1 = @ 1ST ENTRY OF CONFIG TABLE VANE TS TCSSSSC£CSS CS CCOLS CS SS SPS SSCL SS CSS CLO LSS SSS SCC SSL SS TS STS SSS LSS LL SS 2 
1925 * MVWI 1,R2 R2 = PRESENT ENTRY # 2POU6R * x Ko OK kk kk dk kk kk kk RO rok kk kk kei a ee ote keke ae te aot te okie ok ake fe ake ok 2k ae 
1926 * R3 = # ENTRIES IN TABLE 2OUB KR RK a ak a IC RO IO I RR ia ate ake aka ake aie ie fe fc ake afc ofc afc akc a eae fe ae feo ake ae 
1927 *TCO3 TBT (R1,22) TEST TCS BIT 001D70 2049 END CYROO END OF PROGRAM 
1928 x JON stcé5 J IF A TCS DEVICE 2050 2363 IO I rok kok ok aiok ok doko kkk kok kek ak ik ak ge foi fete fe ie a ak aie ake ae oe ake 
1929 * NOT A TCS DEVICE 2051 * END OF CONFIGURATION PROGRAM 
1930 *TCOYW AWT 16,R1 INC TO NEXT ENTRY O 2052 st a Ik Fi dk i kk kkk fate ake i fe ake oi ce akc 
1931 * AW =. 1, 82 INC TO NEXT ENTRY # 
1932 * CW R3,R2 
1933 * JLE sté03 J NOT END OF TABLE 
1934 * END OF TABLE REACHED 
1935 * MVW STCEA,R1 R1 = TCS ENTRY @ 
1936 * TBTR ({R1 63) RESET CYCLE STEAL DEVICE BIT-TCS ENT 
1937 * stc66 J 
1939 "RK KKK 
1939 FOUND A TCS DEVICE 
1940 *fCO5 MVW R1,STCDA SAVE TCS DEVICE ENTRY ADDRESS 
1941 * AWIL 15,R1,R4 R4Y = LAST BYTE OF ENTRY 
1942 * TBT itt 6) TEST CYCLE STEAL BIT IN READ ID 
1943 * JOFF tc64 J NOT A CS DEVICE. CK NEXT ENTRY 
1944 * FOUND A CYCLE STEAL TCS DEVICE. ENTER IN TCS ENTRY 
1945 * MVW STCEA,R1 R1 = TCS ENTRY @ 
1946 * TBTS he 63) SET CYCLE STEAL DEVICE BIT IN TCS ENT 
i 1947 *TCO6 AWI R4,R R2 = TCS ENTRY @ FOR TCS DEVICE @ 
1948 x MVw 6s Sfc A, R7 R7 = 0 TCS DEVICE ENTRY 
1949 * JZ STCO7 J NO TCS DEVICES FOUND 
1950 * MVB Aaa (R2) SET TCS DEVICE 0 IN TCS ENTRY 
1951 * J TC08 
1952 *TCO7 MVB R7, (R2) RESET TCS DEVICE @ TO 0 IN TCS ENTRY 
OO2A8A 6812 2A8E 1953 sTcos B T * RETURN 
1954 3k kK RIC I IR I i a tok tote foie i ak ate ake kok ik 
OO2A8E 0000 1955 STCRA DC A (*-* RETURN ADDRESS 
1956 *TCEA DC Xx'O000! TCS ENTRY ADDRESS 
1957 *TCDA DC X'0000! TCS DEVICE ENTRY ADDRESS 
195 8 22k Fee eo fee ok do i ae a ao RR RO OR IRE IO RR OR RR RRR folk ie ie eke kok kok ok ak 
1959 * END OF STCS PROCEDURE 
1960 x Ro a tk EO RRO OR RR RO tok kok de tok kak kek dike ak 
1962 RoR i a aR a RR ko a I RRR OR IO I BR IC a tek tek ok fe kc koko cic ok 
1963 * END OF COMMON SUBROUTINES 
1964 Ok kk RI RO ia a tak ito tk aa kok ak 
1965 COPY DNSUB3 
1966 KOR ROR RO IO OR RR RR RR I I RRR RO Ro ROR ae ok ee aR ke RC Hk a a ea ake ak ake 2k 
1967 * kx TITLE xx = 
1968 * "CONFIGURATION COMMON SUBROUTINES - DNSUB3 * 
1969 OR RO ORR III EOI ROK Ra Rk gk ak ok ite akc ak akc i fe ae akc 2k 
1971 RRO IR I gk RR ge ek deka ee akc ake kak ak ok ok ok a 
* 
1974 EE ee Te Le ere eT Ee eee TTT TT eT eee TT ETT Tee Te eT e 
1974 * 
1975 * CONTROL BLOCK OUTPUT 
1975 ALIGN WORD 
002A90 0080 1977 DC x' 0080! 
002A92 2A98 1978 CTM8 DC A(CTM8A) 
OO2A94 FFFF 1979 DC A eet 
1980 * OUTPUT MESSAGE 
Q002A9656 384A 1981 DC X'384A! 
002A98 E3C1IC2D3C540C6EE4D 1982 CTM8A DC C'TABLE FULL' 
OO2ZAA2 O00 1983 pc X'00! 


O38F5 - CONFIGURATION FUNCTIONS OVERLAY 
CROSS~REFERENCE LISTING 


DECLARED 
859 
861 

1473 
1499 
1485 
1495 
1517 
1540 
1543 
1545 
898 
899 
1514 
900 
901 
54 
914 
915 
916 
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ALTER 
AOPTN1 
CACON 
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CADTY 
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CALBR 
CBPA3 
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LOCATION (000027 10) 
LOCATION (00002758) 
LOCATION (0000272C) 
LOCATION (00002748) 
LOCATION (0000275C) 
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LOCATION (00002740) 
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LOCATION (000021E0) 
LOCATION (000021E1) 
LOCATION (0000275A) 
LOCATION (000021E2) 
LOCATION (000021E3) 
LOCATION (00001D7E) 
LOCATION (000021F4) 
LOCATION (000021F6) 
LOCATION (000021F8) 
LOCATION (000027C0) 
LOCATION (000027C2) 
LOCATION (000027D0) 
LOCATION (000026 9E) 
LOCATION (000021C6) 
LOCATION (000021C7) 
LOCATION (000021CC) 
LOCATION (000021BE) 
LOCATION (000021C0) 
LOCATION (000021C1) 
LOCATION (000021C2) 
LOCATION (000021C3) 
LOCATION (000021C4) 
LOCATION (0000269A) 
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LOCATION (000021FA) 
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LOCATION (00002A84) 
LOCATION (00002A3C) 
LOCATION (00002A56) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (16) 
LENGTH (2) 
LENGTH (2) 
LENGTH (48) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
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1004 
1010 
1014 
10 15 
1021 
1025 
1031 
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CMDO2 
CMD10 
CMD20 
CND21 
CMD22 
CND23 
CMD25 
CMD26 
CMD30 
CMD31 
CMD70 
CMD71 
CMD73 
CMEND 
CNE4O 
CNE42 
CNE4Y4 
CNM30 
CNM31 
CNSAT 
CNTA 
CNTB 
CNT1 
CNT2 
CSAB 
CSNO1 
CSNO5 
CSORA 
CSORT 
CSx01 
CSX02 
CS00 
CS01 
CSO02 
CS03 
CSO04 
CS05 
CS06 
CS10 
CS12 
CS14 
CS15 
CS 16 
CTABA 
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CTABN 
CTABP 
CTABS 
CTABU 
CTAIE 
CTCFF 
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cTCcOoO1 
CTCO2 
cTCO3 
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ADDRESS. HEX 
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RESS. HEX 
RESS. HEX 
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REFERENCES 


LOCATION (00001E90) 
LOCATION (00001E98) 
LOCATION (0000227C) 
LOCATION (00002286) 
LOCATION (00002280) 
LOCATION (00005281) 
LOCATION (00002286) 
LOCATION (000022BC) 
LOCATION (000022C8) 
LOCATION (000022CE) 
LOCATION (00001EA0) 


LOCATION (00001EAA) 


X LOCATION (00001EBC) 
430 


LOCATION (0000209C) 
LOCATION (00002866) 
LOCATION (00002872) 
LOCATION (000028B8) 
LOCATION (000027DE) 
LOCATION (000027E4) 
LOCATION (00002800) 
LOCATION (000027F8) 


LOCATION (000027FC) 


LOCATION (000027FA) 
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LOCATION (000027 FE) 
180 
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LOCATION (000028C8) 
LOCATION (00002844) 
LOCATION (00002862) 
LOCATION (000027F4) 
LOCATION (00002812) 
LOCATION (00002890) 
LOCATION (00002898) 
LOCATION (0000282C) 
LOCATION (000028DA) 
LOCATION (000028E2) 
LOCATION (00002902) 
LOCATION (00002908) 
LOCATION (0000291A) 
LOCATION (000029254) 
LOCATION (00002960) 
LOCATION (00002986) 
LOCATION (000029A6) 
LOCATION (000029C8) 
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LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (41) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (9) 
LENGTH (2) 
LENGTH (24) 
LENGTH (2) 
LENGTH (16) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (14) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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cTco4 
cTcos5 
CTCOE 
CTCO7 
CTC 14 
CTDBB 
CTDO2 
CcTDO3 
CTDO4 
CTDO6 
CTDO7 
CTD10 
CTD11 
CTD15 
CTD 1E 
CTD20 
CTD21 
CTEM 
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CTICT 
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CTIDD 
CTIDF 
CTIID 
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CTIO5 
CT1I15 
CTI 16 
CTI17 
CTI18 
CTI20 
CTI30 
CLi3so 
CTI4O 
CTI45 
cT1r50 
CTI55 
CTI60 
CTLEL 
CT LNG 
CTMNE 
CTM11 
CTM12 
CTMN20 
CTM21 
CTM22 
CTM6B 
CTM6C 
CIM7 
CTM7A 
CTM7B 
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ADDRESS. 
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ADDRESS. 
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CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 


N CSECT(038F5 
1221 


N CSECT (O38F5 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
It 

IN 
IN 
IN 
IN 
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CSECT (038F5 
CSECT (038F5 
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CSECT (038F5 
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CSECT (038F5 
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CSECT (038F5 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH (12) 


LENGTH (1) 
LENGTH (2) 
LENGTH (3) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (3) 
LENGTH (2) 
LENGTH(7) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (20) 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 


LENGTH (48) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (13) 


LENGTH (2) 


LENGTH (30) 


LENGTH (2) 








O38F5 - CONFIGURATION FUNCTIONS OVERLAY 
CROSS-REFERENCE LISTING 


DECLARED 


237 
243 
249 
253 
1978 
1982 
927 
930 
904 
905 
907 
906 
908 
893 
894 


124 
128 
800 
338 
358 
393 
454 
311 
332 
367 
414 
421 
269 
291 
430 
435 
G44 
1071 
1073 
1080 
1085 
1091 
1097 
1156 
1170 
1177 
1185 
1192 
1196 
1202 
1205 
1212 
1215 
1221 
1225 
1238 
1240 
1154 
40 
1420 


NAME 


CIM7C 
CTM7D 
CTM7E 
CTM7F 
CTM8 

CIM8A 
CTRL5 
CTRLE 
CTSA2 
CTSEA 
CTSEE 
CTSEF 
CTSEN 
CTW13 
CEW1E 


CTW40 
CTW41 
CUDF 

CXDO1 
CxD03 
CXINA 
CXINC 
CXIN3 
CXINY 
CXINS 
CXIN6 
CXIN8 
CXIO2 
CXI06 
CX1I81 
CXI82 
CX1I89 
CXS02 
CXS03 
CXxSO4 
CxS05 
CxS06 
CXS08 
CY1I05 
CYI10 
CYI20 
CYI22 
CYI25 
CYI30 
CYI35 
CYI40 
CYI45 
CYI50 
CYI55 
CYI60 
cYI65 
CYI70 
CYRID 
CYROO 
DET15 


P/N=8327423 


CSECT (038F5 
CSECT(038F5 
CSECT (038F5 
CSECT (038F5 


N CSECT (038F5 


ATTRIBUTES AND REFERENCES 
478 
ADDRESS. HEX LOCATION(00001F0C) IN 
ADDRESS. HEX LOCATION (00001F30) IN 
ADDRESS. HEX LOCATION (00001F3A) IN 
ADDRESS, HEX LOCATION (00001F66) IN 
220 232 244 459° 480 85 

ADDRESS. HEX LOCATION (00002a92) 
ADBRESS. HEX LOCATION (00002498) IN 
jADDRESS. HEX LOCATION (00002208) IN 
ADDRESS. {EX LOCATION (00002208) IN 
ADDRESS. HEX LOCATION (00002185) IN 
jABBRESS- HEX LOCATION (00002186) IN 
ADDRESS. HEX LOCATION (000021E9) IN 
ADDRESS. HEX LOCATION (000021E8) IN 

1068 1074 1075 1077 
jADDRESS. HEX LOCATION (000021EA) IN 
ADDRESS. HEX LOCATION (000021DA) IN 
ADDRESS. HEX LOCATION (00002 1DC) IN 
350 3823 528 1069 1665 1669 
1839 1845 
ADDRESS. HEX LOCATION(00001DDA) IN 
291 469 4g9 §& 

ADDRESS. HEX LOCATION (00001DE0) IN 
ABSOLUTE. HEX VALUE (00000002) 

1666 1668 1841 1843 1865 
ADDRESS; HEX LOCATION (00001FE8) IN 
ADDRESS. HEX LOCATION (00002020) IN 
ADDRESS. HEX LOCATION(00002074) IN 
ADDRESS. HEX LOCATION (000020DC) IN 
ADDRESS. HEX LOCATION(00001FC4) IN 
ADDRESS. HEX LOCATION(00001FDC) IN 
ADDRESS. HEX LOCATION (00002024) IN 
ADDRESS. HEX LOCATION (000020A0) IN 
ADDRESS» HEX LOCATION (000020A8) IN 
ADDRESS. HEX LOCATION (00001F6A) IN 
ADDRESS. HEX LOCATION (00001FB6) IN 
ADDRESS. HEX LOCATION (000020C0) IN 
ADDRESS. HEX LOCATION (000020CE) IN 
ADDRESS. HEX LOCATION (000020D0) IN 

ADDRESS. HEX LOCATION(000022FE) IN 
ADDRESS. HEX LOCATION (00002304) IN 

1084 1089 1092 1095 

jADBRESS. HEX LOCATION (0000231A) IN 

ADDRESS. HEX LOCATION (00002328) IN 

jADBRESS. HEX LOCATION (00002336) IN 

ADDRESS. HEX LOCATION (00002346) IN 

ADDRESS. HEX LOCATION (000023a8) IN 

ADDRESS. HEX LOCATION (000023D4) IN 

 ADBBRESS. HEX LOCATION (000023DE) IN 

jADDRESS. HEX LOCATION (000023F8) IN 

ADRESS. HEX LOCATION(0000240A) IN 

ADDRESS. HEX LOCATION (0000241E) IN 

ABBRESS. HEX LOCATION (00002430) IN 

ADDRESS. HEX LOCATION (0000243E) IN 

jABDRESS. HEX LOCATION (00002452) IN 

jABBRESS. HEX LOCATION (00002460) IN 
jADBRESS. HEX LOCATION (00002472) IN 
ADDRESS. HEX LOCATION (00002480) IN 

1195 1200 1204 1210 14° 1219 

ADDRESS. HEX LOCATION (000024a6) 1 
ADDRESS. HEX LOCATION (000024AC) IN 

11661174 

jADBRESS. HEX LOCATION (000023A4) IN 

ADDRESS. HEX LOCATION (00001D70) IN 
ADDRESS. HEX LOCATION(000026AA) IN 


CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (O38F5 
CSECT (038 F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 


CSECT (038F5 
1730 1735 


CSECT (038F5 
CSECT(O038F5 


CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (O38F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT(038F5 
CSECT (O38F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT(038F5 
CSECT (038F5 
CSECT(038F5 
CSECT (038F5 
CSECT (038F5 


N CSECT (038F5 


CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
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LENGTH (33) 


LENGTH (2) 


LENGTH (43) 


LENGTH (2) 
LENGTH (2) 


LENGTH (10) 


LENGTH (2) 
LENGTH (4) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


LENGTH (13) 


LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (6) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (1) 


ae 
) 
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DECLARED 


1437 
1441 
1455 
1462 
1258 
1398 
1405 
660 
540 
666 
656 
303 


304 
606 
582 
2019 
2030 
2037 
549 
856 
653 
580 
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912 
1649 
588 
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DET17 
DET18 
DET20 
DET21 
DNTAB 
DVTNA 
DVTUN 
EIGHT 
FLOAT 
FORTN 
FOUR 

FUFIN 


FUNR 
HTOE 
IDLE 
NEXTE 
NEXT2 
NEXTY 
OEMIA 
OLYRA 
ONE 
OUT 


OUTIN 
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PASS1 
PBOTT 
RESET 
RID 
RO 

R1 


R2 


R3 


RY 
R5 


R6 


R7 


ATTRIBUTES AND 
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ADDRESS. 
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ADDRESS. 
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ADDRESS. 
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CROSS~REFERENCE LISTING 


REFERENCES 


LOCATION (000026D0) IN 
LOCATION (000026D8) IN 
LOCATION (000026F8) IN 
LOCATION (00002708) IN 
LOCATION (000024B0) IN 
LOCATION (00002672) IN 
LOCATION (00002692) IN 
X, VALUE (00000008) 
LOCATION (0000218C) IN 
X VALUE (0000000E) 
X VALUE (00000004) 


ee gial ee aaamear iT alana | IN 
358 408 415 Wy 


LOCATION(00001FCO) IN 
X_ VALUE (00000018) 
X VALUE (00000002) 
gEQCATION (00002AB6) IN 
LOCATION (OO002ACE) IN 
LOCATION (00002AE8) IN 
LOCATION (0000219E) IN 
LOCATION (000021B6) IN 
VALUE (00000001) 
"105 680009880) ga 
1881 2027 


1493 
aa eee 
401 422 458 


X 
446 
X_V 
339 
482 
X_V 
370 


CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
CSECT (038F5 
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CSECT (038F5 
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X YALUE (90000001) 


uy 
OE, 
~IUs 


DS IAD ceed eed cd cad cd wea and coed eae 
DMONAINEEWWN COONIANNIONNSOOUWU 


IND aed ad ch we ck ed ed ed ed 
FNIOWOLNWUIA) WONQVWmUIADHDONOWL 
Wt Bet ONeINA) WOWWUILIWOWAWUIAIWUI 


ORY aed aed ed ed cd ed od wd ed 


Pa 
tc 
oO 
° 


al cand con exod anh enh onl 


> 
it 
uJ 
— 


amd ened coed 
COON 
SWs~) 
NWO 


© [-) 
© © 
ee eh me met we eh COA) ad weed ceed nt coed ec ened 


UMWEWWOODNNIEOLO WEOMNG OANCOOODNINESFWWNHOCCOOYNIYANEOMUIWW 
NUMNOmOWAWWARAOS NWOnO LaAWOWENODWOLMBDOUIAIOWON AW sO NUUWOUR 
aAYDEONAWWONSD aBaDOWD mA IONABWNOOWUON@UION OOw8 Em nYUEANOLS 


- 
— 


> 
t 
io) 
© 
16.) 
—_ 


eth cod 


~If 
oy = 
WIV 


© 
fo) 
oO 


i=] = 
te te 
(one eee oe lo od Or PP Pt 
NEeWWHOWNUSOLMYNISWUE ONS RE OCOOOANAINEOQWWNEODOYNTNIANE OME 


NIUTO ake WOW UWIODOR ON Oe Nee NOC WEN ONO SAID We WONT ODOT ~) 
OUAMN ODN wa tO LONEUONOG DATWNOLONNYANUUIAW OWE AO UID OO 


ON 
— 


fon) 

So 

SS ed week ered eed wed 

ed ond aaah amb asd 
WEWW OA FOLr 
DIMW ams LOW) J~] 
Foe ~JQueow 


Ro 
t 


wa TO ONNNODO WOW BD OCONOD OCUWNDVIHAESHROW) WOHNUNOODVION WI 
~J 


WOU AB SW OUUIAIN 4 UIE ANKGHDIN ANG NUOSB@4~JOODW Ut JOU StWO DO SNOOUION 


CSECT (O38F5 
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347 350 
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514 515 
1066 1070 
1417 1432 
1567 1570 
1669 1670 
1695 1700 
1716 1717 
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1831 1835 
2007 2020 
2036 
279 282 
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398 507 
1422 1426 
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1704 1706 
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1826 1829 
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1773 1774 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (8) 


a al 


) LENGTH (4) 


LENGTH (2 
52 es 


) LENGTH (4) 


) LENGTH (2) 
) LENGTH (4) 
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O38F5 - CONFIGURATION FUNCTIONS OVERLAY 


DECLARED 


658 
455 
473 
478 
493 
495 
1955 
1904 
1570 
1573 
1574 
505 
512 
524 
528 
532 
662 
587 
654 
612 
652 
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NAME 


SIX 
SS001 
SS002 
SS003 
SS004 
SS005 
STCRA 
STCS 
STYP5 
STYP7 
STYP9 
TCSEN 
TCSO03 
TCSO4 
TCSO5 
TCSO8 
TEN 
TERM 
TWO 
WRITI 
ZERO 
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550 553 1098 1155 1160 1181 1231 1236 1416 

4425 1426 1427 1430 1449 1456 1473 1474 1477 

1478 1481 1487 1492 1517 1519 1525 1574 1585 

1586 1587 1602 1659 1778 1786 1790 1799 1849 

1850 1862 1880 1904 2002 2005 2019 2026 2035 
jABSOLUTE. HEX VALUE (00000006) 

ADDRESS. HEX LOCATION (000020DC) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002104) IN CSECT(O38F5  ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002112) IN CSECT(O38F5 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00002136) IN CSECT(O38F5 ) LENGTH(2) 
ADDRESS. HEX LOCATION (0000213C) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS, HEX LOCATION (00002A8E) IN CSECT(O38F5 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002A86) IN CSECT(O38F5 ) LENGTH(4) 
jADDRESS. HEX LOCATION (000027B6) IN CSECT(O38F5 ) LENGTH(2) 
jADDRESS. HEX LOCATION (000027BA) IN CSECT(O38F5 ) LENGTH(2) 
jADDRESS, HEX LOCATION(000027BC) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002144) IN CSECT(O38F5 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00002156) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002174) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS. HEX LOCATION (0000217C) IN CSECT(O38F5 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002188) IN CSECT(O38F5 ) LENGTH(4) 
ABSOLUTE. HEX VALUE (0000000A) 

1440 1442 

ABSOLUTE. HEX VALUE(00000007) 

1590 1604 

ABSOLUTE. HEX VALUE (00000002) 

1426 1450 

jBBSOLUTE. HEX VALUE(00000020) 

ABSOLUTE. HEX VALUE (90000000) 

1422 1427 1443 1460 


| 


